object FormCourrier: TFormCourrier Left = 282 Top = 212 Width = 755 Height = 414 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Mode courrier' Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Icon.Data = {} KeyPreview = True Menu = MainMenu1 OldCreateOrder = False Position = poDefaultPosOnly WindowState = wsMaximized OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object ScrollBox1: TScrollBox Left = 0 Top = 27 Width = 747 Height = 333 HorzScrollBar.Tracking = True VertScrollBar.Tracking = True Align = alClient BevelInner = bvNone BorderStyle = bsNone Color = clGray Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentCtl3D = False ParentFont = False TabOrder = 0 object RichEditCourrier: TRichEdit98 Left = 177 Top = 34 Width = 187 Height = 262 AutoURLDetect = adDefault BorderStyle = bsNone Ctl3D = False CustomURLs = < item Name = 'e-mail' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'http' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'file' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'mailto' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'ftp' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'https' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'gopher' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'nntp' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'prospero' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'telnet' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'news' Color = clWindowText Cursor = crDefault Underline = True end item Name = 'wais' Color = clWindowText Cursor = crDefault Underline = True end> Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] HideSelection = False LangOptions = [loAutoFont] Language = 1036 ParentCtl3D = False ParentFont = False PopupMenu = PopupRichCourrier ScrollBars = ssVertical ShowSelectionBar = False TabOrder = 0 URLColor = clBlue URLCursor = crHandPoint OnKeyPress = RichEditCourrierKeyPress OnMouseUp = RichEditCourrierMouseUp OnSelectionChange = RichEditCourrierSelectionChange OnURLClick = RichEditCourrierURLClick InputFormat = ifRTF OutputFormat = ofRTF SelectedInOut = False PlainRTF = False UndoLimit = 0 AllowInPlace = False end object PanelTop: TPanel Left = 0 Top = 0 Width = 747 Height = 30 Align = alTop BevelOuter = bvNone Color = clSilver TabOrder = 1 object PanelRule: TPanel Left = 174 Top = 0 Width = 244 Height = 30 BevelOuter = bvNone Color = clSilver TabOrder = 0 object ImageIndent: TImage Left = 9 Top = 0 Width = 7 Height = 6 Cursor = crDrag Hint = 'Retrait de la premi'#232're ligne' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = ImageIndentMouseDown OnMouseMove = ImageIndentMouseMove OnMouseUp = ImageIndentMouseUp end object ImageG: TImage Left = 9 Top = 20 Width = 7 Height = 6 Cursor = crDrag Hint = 'Retrait '#224' gauche' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = ImageGMouseDown OnMouseMove = ImageGMouseMove OnMouseUp = ImageGMouseUp end object MarginL: TImage Left = 9 Top = 26 Width = 7 Height = 4 Cursor = crMultiDrag Hint = 'Marge gauche' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = MarginLMouseDown OnMouseMove = MarginLMouseMove OnMouseUp = MarginLMouseUp end object ImageD: TImage Left = 162 Top = 20 Width = 7 Height = 6 Cursor = crDrag Hint = 'Retrait '#224' droite' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = ImageDMouseDown OnMouseMove = ImageDMouseMove OnMouseUp = ImageDMouseUp end object MarginR: TImage Left = 162 Top = 26 Width = 7 Height = 4 Cursor = crMultiDrag Hint = 'Marge droite' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = MarginRMouseDown OnMouseMove = MarginRMouseMove OnMouseUp = MarginRMouseUp end object SC_Ruler1: TSC_Ruler Left = 0 Top = 6 Width = 187 Height = 14 BevelOuter = bvNone Caption = ' ' Color = clWhite Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 StartOffset = 2 RulerLength = 100 end end end end object PanelForm: TPanel Left = 0 Top = 0 Width = 747 Height = 27 Align = alTop BevelOuter = bvNone TabOrder = 1 object BoldButton: TSpeedButton Left = 326 Top = 2 Width = 23 Height = 22 Hint = 'Met la s'#233'lection en gras' AllowAllUp = True GroupIndex = 2 Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777000000 7777777770007000777777770007700077777777000700007777777700077777 7777777700077777777777770007700077777777700070007777777777000007 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = BoldButtonClick end object ItalicButton: TSpeedButton Left = 350 Top = 2 Width = 23 Height = 22 Hint = 'Met la s'#233'lection en italique' AllowAllUp = True GroupIndex = 3 Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777000000777 7777777770087777777777777800777777777777770087777777777777800777 7777777777700877777777777778007777777777777700877777777777700000 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = ItalicButtonClick end object UnderlineButton: TSpeedButton Left = 374 Top = 2 Width = 23 Height = 22 Hint = 'Met la s'#233'lection en soulign'#233' continu' AllowAllUp = True GroupIndex = 4 Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777778888888887777777000000000777777777777777 7777777777000007777777777008780077777777707777007777777777770007 7777777777000007777777777000777777777777700777007777777770087800 7777777777000007777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = UnderlineButtonClick end object LeftAlign: TSpeedButton Left = 427 Top = 2 Width = 23 Height = 22 Hint = 'Aligner le paragraphe '#224' gauche' GroupIndex = 1 Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007777777777777777700000007777777777777777700000007000 0000000777777000000077777777777777777000000070000000000000077000 0000777777777777777770000000700000000007777770000000777777777777 7777700000007000000000000007700000007777777777777777700000007000 0000000777777000000077777777777777777000000070000000000000077000 0000777777777777777770000000777777777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = LeftAlignClick end object CenterAlign: TSpeedButton Tag = 2 Left = 451 Top = 2 Width = 23 Height = 22 Hint = 'Aligner le paragraphe au centre' GroupIndex = 1 Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007777777777777777700000007777777777777777700000007770 0000000007777000000077777777777777777000000070000000000000077000 0000777777777777777770000000777000000000077770000000777777777777 7777700000007000000000000007700000007777777777777777700000007770 0000000007777000000077777777777777777000000070000000000000077000 0000777777777777777770000000777777777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = CenterAlignClick end object RightAlign: TSpeedButton Tag = 1 Left = 475 Top = 2 Width = 23 Height = 22 Hint = 'Aligner le paragraphe '#224' droite' GroupIndex = 1 Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007777777777777777700000007777777777777777700000007777 7700000000007000000077777777777777777000000077000000000000007000 0000777777777777777770000000777777000000000070000000777777777777 7777700000007700000000000000700000007777777777777777700000007777 7700000000007000000077777777777777777000000077000000000000007000 0000777777777777777770000000777777777777777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = RightAlignClick end object BulletsButton: TSpeedButton Tag = 1 Left = 503 Top = 2 Width = 23 Height = 22 Hint = 'Ins'#233'rer une puce' AllowAllUp = True GroupIndex = 5 Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDD0000000DDDDDDDDDDDDDDDDD0000000D444DDDDDDDDDDDDD0000000D444 DD000000000DD0000000D444DDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD000 0000DDDDDDDDDDDDDDDDD0000000D444DDDDDDDDDDDDD0000000D444DD000000 000DD0000000D444DDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DDDD DDDDDDDDDDDDD0000000D444DDDDDDDDDDDDD0000000D444DD000000000DD000 0000D444DDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DDDDDDDDDDDD DDDDD0000000} ParentShowHint = False ShowHint = True OnClick = BulletsButtonClick end object ButtonFont: TSpeedButton Left = 398 Top = 2 Width = 23 Height = 22 Hint = 'Choisir la couleur' Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007000700077777777700000007707770777777777700000007700 0007000007777000000077707070BFBFB0077000000077700070707BFBF07000 0000777707770E0707B07000000077770770707090FB0000000077777000BFB7 07BF0000000077770BFBFBFB707B0000000077770F707FBF070F000000007777 0B050707707B0000000077770F707070BFB070000000777770FBF707FB077000 000077777700BFBF007770000000777777770000777770000000777777777777 777770000000} ParentShowHint = False ShowHint = True OnClick = ButtonFontClick end object IndentPlus: TSpeedButton Tag = 1 Left = 527 Top = 2 Width = 23 Height = 22 Hint = 'Augmenter le retrait '#224' gauche' Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000012000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDD000000DDDDDDD0DDDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DD00 00D00DDDDDDDDD000000DDDDDDDDDDDDDDDDDD000000DD0000D0000000000D00 0000DDDDDDDDDDDDDDDDDD000000DD4DDDD000000DDDDD000000DD44DDD00000 0DDDDD00000044444DDDDDDDDDDDDD000000DD44DDD000000000DD000000DD4D DDD000000000DD000000DDDDDDDDDDDDDDDDDD000000DD0000D000000000DD00 0000DDDDDDDDDDDDDDDDDD000000DDDDDDD0DDDDDDDDDD000000DDDDDDDDDDDD DDDDDD000000} ParentShowHint = False ShowHint = True OnClick = IndentPlusClick end object IndentMoins: TSpeedButton Tag = 1 Left = 551 Top = 2 Width = 23 Height = 22 Hint = 'Diminuer le retrait de gauche' Flat = True Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDD0000000DDDDDDD0DDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DD00 00D00DDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DD0000D000000000D000 0000DDDDDDDDDDDDDDDDD0000000DD4DDDD000000DDDD0000000D44DDDD00000 0DDDD000000044444DDDDDDDDDDDD0000000D44DDDD000000000D0000000DD4D DDD000000000D0000000DDDDDDDDDDDDDDDDD0000000DD0000D000000000D000 0000DDDDDDDDDDDDDDDDD0000000DDDDDDD0DDDDDDDDD0000000DDDDDDDDDDDD DDDDD0000000} ParentShowHint = False ShowHint = True OnClick = IndentMoinsClick end object Bevel1: TBevel Left = 576 Top = 2 Width = 3 Height = 22 Shape = bsLeftLine end object SpeedPrint: TSpeedButton Tag = 2 Left = 51 Top = 2 Width = 23 Height = 22 Hint = 'Imprimer' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA DADAAD00000000000DADD0888888888080DA000000000000080D0888888BBB88 000A088888877788080D00000000000008800888888888808080D00000000008 0800AD0FFFFFFFF08080DAD0F00000F0000AADA0FFFFFFFF0DADDADA0F00000F 0ADAADAD0FFFFFFFF0ADDADAD000000000DAADADADADADADADAD} ParentShowHint = False ShowHint = True OnClick = PrintFileExecute end object SpeedClose: TSpeedButton Tag = 1 Left = 676 Top = 2 Width = 47 Height = 22 Hint = 'Fermer la fiche courrier' Caption = 'Fermer' Flat = True NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedCloseClick end object SpeedSave: TSpeedButton Tag = 2 Left = 27 Top = 2 Width = 23 Height = 22 Hint = 'Enregistrer au format RTF' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA DADAAD0000000000000DD03300000088030AA03300000088030DD03300000088 030AA03300000000030DD03333333333330AA03300000000330DD03088888888 030AA03088888888030DD03088888888030AA03088888888030DD03088888888 000AA03088888888080DD00000000000000AADADADADADADADAD} ParentShowHint = False ShowHint = True OnClick = SaveAsExecute end object SpeedForme: TSpeedButton Left = 652 Top = 2 Width = 23 Height = 22 Hint = 'Copier la mise en forme' AllowAllUp = True GroupIndex = 6 Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA DADABFBFBDADADADADADDADADBFADADADADAADADAD000DADADADDADAD0FBF0DA DADAADAD0F7FBF0DADADDAD0F7F87BF0DADAAD0F7F87BFB70DADD0F7F87BFB78 80DA000F87BFB78880ADDAD00BFB78880ADAADADA0B7888740ADDADADA088804 440AADADADA000A04440DADADADADADA0440ADADADADADADA00D} ParentShowHint = False ShowHint = True OnClick = SpeedFormeClick end object SpeedButton1: TSpeedButton Tag = 2 Left = 3 Top = 3 Width = 23 Height = 21 Hint = 'Ouvrir un fichier au format RTF' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA DADAADADADADADADADAD00000000000ADADA003333333330ADAD0B0333333333 0ADA0FB03333333330AD0BFB03333333330A0FBFB000000000000BFBFBFBFB0A DADA0FBFBFBFBF0DADAD0BFB0000000ADADAA000ADADADAD000DDADADADADADA D00AADADADAD0DAD0D0DDADADADAD000DADAADADADADADADADAD} ParentShowHint = False ShowHint = True OnClick = OpenExecute end object SuperscriptButton: TSpeedButton Left = 580 Top = 2 Width = 23 Height = 22 Hint = 'Exposant' AllowAllUp = True GroupIndex = 7 Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000880B0000880B00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555550055005555555555500005555 5555555550055555555555550000555555555550055005555555555555555511 1555555555555515555555555555555155555555555555551555555555555511 5555555555555555555555555555555555555555555555555555} ParentShowHint = False ShowHint = True OnClick = SuperscriptButtonClick end object subscriptButton: TSpeedButton Left = 604 Top = 2 Width = 23 Height = 22 Hint = 'Indice' AllowAllUp = True GroupIndex = 7 Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000880B0000880B00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555555555555444555555555555545 5555555555555554555555555555555545555550055005445555555500005555 5555555550055555555555550000555555555550055005555555555555555555 5555555555555555555555555555555555555555555555555555} ParentShowHint = False ShowHint = True OnClick = subscriptButtonClick end object Bevel3: TBevel Left = 423 Top = 2 Width = 2 Height = 22 Shape = bsLeftLine end object Bevel4: TBevel Left = 500 Top = 2 Width = 2 Height = 22 Shape = bsLeftLine end object SurligneButton: TSpeedButton Left = 628 Top = 2 Width = 23 Height = 22 Hint = 'Surligner le texte' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000880B0000880B00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555BBBBBBBBBBBBBB55BBBBBBBBBBBBBB55BBBBBBBBBBBBBB5555555555555 555555000005555555555508FFF05555555555508FC70555555555550CC77055 5555555550C7270555555555550FF270555555555550FF270555555555550FF0 C05555555555500FC05555555555550005555555555555555555} ParentShowHint = False ShowHint = True OnClick = SurligneButtonClick end object ButtonAnnuler: TSpeedButton Tag = 1 Left = 302 Top = 2 Width = 23 Height = 22 Hint = 'Annuler' Flat = True Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F0000000880B0000880B00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDD DDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD 0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDD70DDDDD0000DDDD00000DDD DD07DDDD0000DDDD0000DDDDDDD0DDDD0000DDDD000DDDDDDDD0DDDD0000DDDD 00D0DDDDDDD0DDDD0000DDDD0DDD00DDDD07DDDD0000DDDDDDDDDD00007DDDDD 0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDD DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDD DDDDDDDDDDDDDDDD0000} ParentShowHint = False ShowHint = True OnClick = AnnulerExecute end object SpeedPreview: TSpeedButton Tag = 2 Left = 75 Top = 2 Width = 23 Height = 22 Hint = 'Aper'#231'u avant impression' Flat = True Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDD000000DDDDDDDDDDDDDDDDDD000000D000000000000DD00D000000D0FF FFFFFFFF0D000D000000D0FFFFFFF0000800DD000000D0FFFFFF0877808DDD00 0000D0FFFFF0877E880DDD000000D0FFFFF07777870DDD000000D0FFFFF07E77 870DDD000000D0FFFFF08EE7880DDD000000D0FFFFFF087780DDDD000000D0FF FFFFF0000DDDDD000000D0FFFFFFFFFF0DDDDD000000D0FFFFFFF0000DDDDD00 0000D0FFFFFFF070DDDDDD000000D0FFFFFFF00DDDDDDD000000DD00000000DD DDDDDD000000DDDDDDDDDDDDDDDDDD000000} ParentShowHint = False ShowHint = True OnClick = ApercuPrintExecute end object SC_Line1: TSC_Line Left = 0 Top = 26 Width = 747 Height = 1 Align = alBottom end object FontSize: TComboBox Left = 252 Top = 3 Width = 47 Height = 22 Cursor = crHandPoint AutoComplete = False Ctl3D = True DropDownCount = 12 ItemHeight = 14 ParentCtl3D = False TabOrder = 1 Text = '10' OnChange = FontSizeChange Items.Strings = ( '8' '9' '10' '11' '12' '14' '16' '18' '20' '22' '24' '26' '28' '36' '48' '72') end object FontName: TComboBox Left = 103 Top = 3 Width = 148 Height = 21 Cursor = crHandPoint AutoComplete = False Style = csOwnerDrawFixed Ctl3D = True DropDownCount = 12 ItemHeight = 15 ParentCtl3D = False ParentShowHint = False ShowHint = True Sorted = True TabOrder = 0 OnChange = FontNameChange OnDrawItem = FontNameDrawItem end end object PopupRichCourrier: TPopupMenu OnPopup = PopupRichCourrierPopup Left = 1 Top = 29 object Annuler2: TMenuItem Action = Annuler end object Refaire1: TMenuItem Action = Refaire end object N9: TMenuItem Caption = '-' end object Couper2: TMenuItem Action = Couper end object Copier2: TMenuItem Action = Copier end object Coller2: TMenuItem Action = Coller end object Supprimer2: TMenuItem Action = SupprimerTexte end object N10: TMenuItem Caption = '-' end object Slectionnertout2: TMenuItem Action = ToutSelectionner end object N11: TMenuItem Caption = '-' end object Rechercherdutexte1: TMenuItem Action = Rechercher end object Remplacerdanscettenote2: TMenuItem Action = Remplacer end object N18: TMenuItem Caption = '-' end object Insertion2: TMenuItem Caption = 'Insertion' object Datecourte2: TMenuItem Action = ShortDate end object Datelongue2: TMenuItem Action = Longdate end object Datecourteetlheure2: TMenuItem Action = ShortDateTime end object Datelongueetlheure2: TMenuItem Action = LongDateTime end object N3: TMenuItem Caption = '-' end object Caractere3: TMenuItem Action = Caractere end object N4: TMenuItem Caption = '-' end object Lecontenudunfichieraucurseur1: TMenuItem Action = InsertFilePos end end object N1: TMenuItem Caption = '-' end object Police1: TMenuItem Action = Police end object Espacementdelignes1: TMenuItem Action = SpaceLine end object N5: TMenuItem Caption = '-' end object Apperuavantimpression1: TMenuItem Action = ApercuPrint end object Configurerlimprimante1: TMenuItem Action = ConfigurePrint end object Ajusterlesmarges1: TMenuItem Action = SetMarge end object N2: TMenuItem Caption = '-' end object OuvrirunfichierRTF1: TMenuItem Action = Open end object Enregistrersous1: TMenuItem Action = SaveAs end end object ActionList1: TActionList Left = 30 Top = 30 object Couper: TAction Category = 'Edition' Caption = 'Cou&per' Hint = 'Couper la s'#233'lection vers le presse papier' ShortCut = 16472 OnExecute = CouperExecute end object Copier: TAction Category = 'Edition' Caption = '&Copier' Hint = 'Copier la s'#233'lection vers le presse papier' ShortCut = 16451 OnExecute = CopierExecute end object Coller: TAction Category = 'Edition' Caption = 'Co&ller' Hint = 'Coller le contenu du presse papier' ShortCut = 16470 OnExecute = CollerExecute end object ToutSelectionner: TAction Category = 'Edition' Caption = 'S'#233'lectionner &tout' Hint = 'S'#233'lectionner tout le texte' ShortCut = 16449 OnExecute = ToutSelectionnerExecute end object SupprimerTexte: TAction Category = 'Edition' Caption = 'S&upprimer' Hint = 'Supprimer la s'#233'lection' ShortCut = 16430 OnExecute = SupprimerTexteExecute end object Annuler: TAction Category = 'Edition' Caption = '&Annuler' Hint = 'Annuler la derni'#232're action' ShortCut = 16474 OnExecute = AnnulerExecute end object Rechercher: TAction Category = 'Edition' Caption = 'Rechercher du texte' Hint = 'Rechercher du texte' ShortCut = 16454 OnExecute = RechercherExecute end object Remplacer: TAction Category = 'Edition' Caption = 'Remplacer du texte' Hint = 'Remplacer du texte' ShortCut = 16466 OnExecute = RemplacerExecute end object ShortDate: TAction Category = 'Insertion' Caption = 'Date courte' Hint = 'Ins'#233'rer la date courte' OnExecute = ShortDateExecute end object Longdate: TAction Category = 'Insertion' Caption = 'Date longue' Hint = 'Ins'#233'rer la date longue' OnExecute = LongdateExecute end object ShortDateTime: TAction Category = 'Insertion' Caption = 'Date courte et l'#39'heure' Hint = 'Ins'#233'rer la date courte et l'#39'heure' OnExecute = ShortDateTimeExecute end object LongDateTime: TAction Category = 'Insertion' Caption = 'Date longue et l'#39'heure' Hint = 'Ins'#233'rer la date longue et l'#39'heure' OnExecute = LongDateTimeExecute end object Police: TAction Category = 'Edition' Caption = '&Police' Hint = 'Choisir la police' ShortCut = 16464 OnExecute = PoliceExecute end object SaveAs: TAction Category = 'Fichier' Caption = 'Enregistrer sous' Hint = '[Enregistrer en RTF' ShortCut = 16467 OnExecute = SaveAsExecute end object Open: TAction Category = 'Fichier' Caption = 'Ouvrir un fichier RTF' Hint = 'Ouvrir un fichier au format RTF' ShortCut = 16463 OnExecute = OpenExecute end object Caractere: TAction Category = 'Insertion' Caption = 'Caract'#232'res sp'#233'ciaux' Hint = 'Ins'#233'rer des caract'#232'res sp'#233'ciaux' OnExecute = CaractereExecute end object ConfigurePrint: TAction Category = 'Fichier' Caption = 'Configurer l'#39'imprimante' OnExecute = ConfigurePrintExecute end object InsertFilePos: TAction Category = 'Insertion' Caption = 'Le contenu d'#39'un fichier' Hint = 'Ins'#233'rer le contenu d'#39'un fichier au curseur' OnExecute = InsertFilePosExecute end object Refaire: TAction Category = 'Edition' Caption = 'Refaire' HelpKeyword = 'Refaire la derni'#232're action' ShortCut = 24666 OnExecute = RefaireExecute end object SpaceLine: TAction Category = 'Edition' Caption = 'Interligne' OnExecute = SpaceLineExecute end object SetMarge: TAction Category = 'Fichier' Caption = 'Ajuster les marges' OnExecute = SetMargeExecute end object ApercuPrint: TAction Category = 'Fichier' Caption = 'Aper'#231'u avant impression' Hint = 'Aper'#231'u avant impression' OnExecute = ApercuPrintExecute end object PrintFile: TAction Category = 'Fichier' Caption = 'Imprimer' OnExecute = PrintFileExecute end object AJour_Note: TAction Category = 'Fichier' Caption = 'Mettre '#224' jour la note' end end object FindDialog1: TFindDialog Options = [frDown, frHideUpDown] OnFind = FindDialog1Find Left = 65533 Top = 57 end object ReplaceDialog1: TReplaceDialog OnFind = ReplaceDialog1Find OnReplace = ReplaceDialog1Replace Left = 27 Top = 60 end object MainMenu1: TMainMenu Left = 90 Top = 54 object Fichier1: TMenuItem Caption = 'Fichier' object OuvrirunfichierRTF2: TMenuItem Action = Open end object Enregistrersous2: TMenuItem Action = SaveAs end object N6: TMenuItem Caption = '-' end object Imprimer1: TMenuItem Action = PrintFile end object Apperuavantimpression2: TMenuItem Action = ApercuPrint end object Configurerlimprimante2: TMenuItem Action = ConfigurePrint end object Ajusterlesmarges2: TMenuItem Action = SetMarge end end object Editeur1: TMenuItem Caption = 'Editeur' object Annuler1: TMenuItem Action = Annuler end object Refaire2: TMenuItem Action = Refaire end object N7: TMenuItem Caption = '-' end object Couper1: TMenuItem Action = Couper end object Copier1: TMenuItem Action = Copier end object Coller1: TMenuItem Action = Coller end object Supprimer1: TMenuItem Action = SupprimerTexte end object N8: TMenuItem Caption = '-' end object Slectionnertout1: TMenuItem Action = ToutSelectionner end object N12: TMenuItem Caption = '-' end object Rechercherdutexte2: TMenuItem Action = Rechercher end object Remplacerdutexte1: TMenuItem Action = Remplacer end object N13: TMenuItem Caption = '-' end object Police2: TMenuItem Action = Police end object Interligne1: TMenuItem Action = SpaceLine end object N14: TMenuItem Caption = '-' end end object Insertion1: TMenuItem Caption = 'Insertion' object Datecourte1: TMenuItem Action = ShortDate end object Apperuavantimpression3: TMenuItem Action = Longdate end object Datecourteetlheure1: TMenuItem Action = ShortDateTime end object Datelongueetlheure1: TMenuItem Action = LongDateTime end object N15: TMenuItem Caption = '-' end object Caractresspciaux1: TMenuItem Action = Caractere end object Lecontenudunfichier1: TMenuItem Action = InsertFilePos end end end object ColorDialog1: TColorDialog Ctl3D = True Options = [cdFullOpen] Left = 3 Top = 87 end object FontDialog1: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 33 Top = 87 end end